inherited fPesquisaVendedor: TfPesquisaVendedor
  Caption = 'Pesquisa Vendedor'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited RxDBGrid1: TRxDBGrid
    Columns = <
      item
        Expanded = False
        FieldName = 'CODIGO'
        Title.Caption = 'Codigo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOME'
        Title.Caption = 'Nome'
        Width = 323
        Visible = True
      end>
  end
  inherited query: TIBOQuery
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    SQL.Strings = (
      'select pessoa.* from vendedor'
      'inner join pessoa on pessoa.codigo = vendedor.codigo'
      'and pessoa.situacao = '#39'A'#39
      'order by pessoa.nome')
    object queryCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object queryNOME: TStringField
      FieldName = 'NOME'
      Size = 100
    end
    object queryCPF_CNPJ: TStringField
      FieldName = 'CPF_CNPJ'
    end
    object queryRG_IE: TStringField
      FieldName = 'RG_IE'
      Size = 15
    end
    object queryENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 100
    end
    object queryNUMERO: TStringField
      FieldName = 'NUMERO'
    end
    object queryBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 50
    end
    object queryCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object queryCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object queryTELEFONE: TStringField
      FieldName = 'TELEFONE'
      Size = 14
    end
    object queryCELULAR: TStringField
      FieldName = 'CELULAR'
      Size = 14
    end
    object querySITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 1
    end
    object queryCIDADE_FK: TSmallintField
      FieldName = 'CIDADE_FK'
    end
  end
end
